10 ;*********************************
11 ;
12 ; BILDSCHIRMSPEICHER VERSCHIEBEN
13 ; ------------------------------
14 ;
15 ; GIGA-ASS HILFS-ROUTINE
16 ;
17 ; DER BILDSCHIRMSPEICHER WIRD
18 ; VON $0400-$07FF NACH $CC00-
19 ; $CFFF VERSCHOBEN.
20 ;
21 ; DANACH IST DER QUELLTEXTSPEICHER
22 ; IN $0400-$8000 (31 K).
23 ;
24 ;*********************************
100 STEP"INIT 31 K,P,W"
110 +$2C3
120 TAB(P=$FC
130 ;
140 ; 1. ROM-ZEICHENSATZ IN RAM
150 ;    UMKOPIEREN ($D000-$DFFF)
160 ;
170 START LEN#0
180  (null)P
190  MID$#$D0
200  (null)P+1
210  (null)
220 LOOP MID$#$33
230  (null)1
240  MID$&P,Y
250  (null)1
260  (null)&P,Y
270  RIGHT$P
280  (null)LOOP
290  RIGHT$P+1
300  PEEKP+1
310  TAN#$E0
320  (null)LOOP
330  MID$#$37
340  (null)1
350 ;
360 ; 2. ALTEN BILDSCHIRM-RAM FREIGEBEN
370 ;
380  MID$#4
390  (null)$282
400 ;
410 ; 3. BILDSCHIRMSPEICHER AUF $CC00
420 ;
430  MID$$DD00
440  ASC#%11111100
450  (null)$DD00
460  MID$#$35
470  (null)$D018
480  MID$#$CC
490  (null)$288
500 ;
510 ; 4. GIGA-ASS RE-INITIALISIEREN
520 ;
530  (null)($8009)
540 ;
550 ; 5. AUTO-START ADRESSE SETZEN
560 ;
570  SPC(0,START
580 <